home *** CD-ROM | disk | FTP | other *** search
/ Kit PC World De Ampliacion De Windows 95 / Kit PC World de ampliacion de Windows 95.iso / internet / sweeper / demos / vbdemo~1 / webbit~1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-12-05  |  2.0 KB  |  71 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5895
  5.    ClientLeft      =   2190
  6.    ClientTop       =   1575
  7.    ClientWidth     =   6690
  8.    Height          =   6315
  9.    Left            =   2130
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5895
  12.    ScaleWidth      =   6690
  13.    Top             =   1215
  14.    Width           =   6810
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "Scramble"
  17.       Enabled         =   0   'False
  18.       Height          =   495
  19.       Left            =   1920
  20.       TabIndex        =   3
  21.       Top             =   960
  22.       Width           =   1215
  23.    End
  24.    Begin VB.CommandButton Command1 
  25.       Caption         =   "&Display"
  26.       Default         =   -1  'True
  27.       Height          =   495
  28.       Left            =   360
  29.       TabIndex        =   2
  30.       Top             =   960
  31.       Width           =   1215
  32.    End
  33.    Begin VB.TextBox Text1 
  34.       Height          =   495
  35.       Left            =   240
  36.       TabIndex        =   1
  37.       Text            =   "Text1"
  38.       Top             =   240
  39.       Width           =   5655
  40.    End
  41.    Begin WebBitmapObjectsCtl.WebBitmap WebBitmap1 
  42.       Height          =   3135
  43.       Left            =   600
  44.       TabIndex        =   0
  45.       Top             =   2280
  46.       Width           =   4935
  47.       _ExtentX        =   8705
  48.       _ExtentY        =   5530
  49.       Bitmap          =   "http://ohserv/users/victors/smokes.bmp"
  50.    End
  51. Attribute VB_Name = "Form1"
  52. Attribute VB_Creatable = False
  53. Attribute VB_Exposed = False
  54. Private Sub Command1_Click()
  55.     WebBitmap1.Bitmap = Text1.Text
  56. End Sub
  57. Private Sub Command2_Click()
  58.     WebBitmap1.Scramble
  59. End Sub
  60. Private Sub Form_Load()
  61.     Text1.Text = WebBitmap1.Bitmap
  62. End Sub
  63. Private Sub WebBitmap1_OnReadyStateChange(newState As Long)
  64.     If (newState = 4) Then
  65.         Command2.Enabled = True
  66.     Else
  67.         Command2.Enabled = False
  68.     End If
  69.         
  70. End Sub
  71.